home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-01-18 | 1.9 KB | 67 lines | [TEXT/MPS ] |
- /*
- * File Memory.r
- *
- * Copyright Apple Computer, Inc. 1985-1987
- * All rights reserved.
- *
- * Sample desk accessory resource file.
- * This incorporates the DRVR header information (defined here)
- * with the linked code (stored as a 'DRVW' resource in the link command)
- */
-
- #include "Types.r" /* To get system types */
- #include "MPWTypes.r" /* To get 'DRVW' type */
-
- #define DriverID 12
-
- #ifdef NOASM_BUILD
- /*
- * This will produce a DRVR resource from the special DRVW type.
- * (this eliminates the need for using the Assembler to create
- * the DA header, but makes it impossible to use SADE, oops!)
- *
- * Note that the ID 12 is irrelevant, since the Font/DA Mover
- * will renumber it to something else when installing it anyway.
- *
- * The leading NUL in the resource name is required to
- * conform to the desk accessory naming convention.
- *
- * The resource is declared purgeable. If the code were to
- * do funky things like SetTrapAddress calls (requiring the code to
- * be around at all times), we would have to set it nonpurgeable.
- */
-
- type 'DRVR' as 'DRVW'; /* Map 'DRVW' => 'DRVR' */
-
- resource 'DRVR' (DriverID, "\0x00Pallet", purgeable) {
- /*
- * DRVR flags
- */
- dontNeedLock, /* OK to float around, not saving ProcPtrs */
- needTime, /* Yes, give us periodic Control calls */
- dontNeedGoodbye, /* No special requirements */
- noStatusEnable,
- ctlEnable, /* Desk accessories only do Control calls */
- noWriteEnable,
- noReadEnable,
- 2*60, /* drvrDelay - Wake up every 5 seconds */
- updateMask, /* drvrEMask - This DA only handles update events */
- 0, /* drvrMenu - This DA has no menu */
- "Memory", /* drvrName - This isn't used by the DA */
- /*
- * This directive inserts the contents of the DRVW resource
- * produced by linking DRVRRuntime.o with our DA code
- */
- $$resource("Pallet.DRVW", 'DRVW', 0)
- };
- #endif
-
- resource 'WIND' (0xC000 | (DriverID << 5), "Pallet") {
- {100, 100, 355, 355},
- noGrowDocProc,
- visible,
- goAway,
- 0x0,
- "Pallet"
- };
-